VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clPrestamo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private mID As Integer
Private mNumeroPrestamo As String
Private mConcepto As String
Private mInstitucion As String
Private mFecha As Date
Private mPeriodo As Integer
Private mMonto As Double
Private mCuota As Double
Private mCuotaRetener As Double
Private mCuentaContable As String
Private mCancelar As Boolean
Private mRetenerCuota As Boolean

Public Property Get ID() As Integer
    ID = mID
End Property
Public Property Let ID(ByVal vNewValue As Integer)
    mID = vNewValue
End Property

Public Property Get NumeroPrestamo() As String
    NumeroPrestamo = mNumeroPrestamo
End Property
Public Property Let NumeroPrestamo(ByVal vNewValue As String)
    mNumeroPrestamo = vNewValue
End Property

Public Property Get Concepto() As String
    Concepto = mConcepto
End Property
Public Property Let Concepto(ByVal vNewValue As String)
    mConcepto = vNewValue
End Property

Public Property Get Institucion() As String
    Institucion = mInstitucion
End Property
Public Property Let Institucion(ByVal vNewValue As String)
    mInstitucion = vNewValue
End Property

Public Property Get Fecha() As String
    Fecha = mFecha
End Property
Public Property Let Fecha(ByVal vNewValue As String)
    mFecha = vNewValue
End Property

Public Property Get Periodo() As Integer
    Periodo = mPeriodo
End Property
Public Property Let Periodo(ByVal vNewValue As Integer)
    mPeriodo = vNewValue
End Property

Public Property Get Monto() As Double
    Monto = mMonto
End Property
Public Property Let Monto(ByVal vNewValue As Double)
    mMonto = vNewValue
End Property

Public Property Get Cuota() As Double
    Cuota = mCuota
End Property
Public Property Let Cuota(ByVal vNewValue As Double)
    mCuota = vNewValue
End Property

Public Property Get CuotaRetener() As Double
    CuotaRetener = mCuotaRetener
End Property
Public Property Let CuotaRetener(ByVal vNewValue As Double)
    mCuotaRetener = vNewValue
End Property

Public Property Get CuentaContable() As String
    CuentaContable = mCuentaContable
End Property
Public Property Let CuentaContable(ByVal vNewValue As String)
    mCuentaContable = vNewValue
End Property

Public Property Get Cancelar() As Boolean
    Cancelar = mCancelar
End Property
Public Property Let Cancelar(ByVal vNewValue As Boolean)
    mCancelar = vNewValue
End Property

Public Property Get RetenerCuota() As Boolean
    RetenerCuota = mRetenerCuota
End Property
Public Property Let RetenerCuota(ByVal vNewValue As Boolean)
    mRetenerCuota = vNewValue
End Property
